home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
C64Demos
/
DEMOS2.LHZ
/
-color displays
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1993-12-17
|
2KB
|
54 lines
1 REMABC,CAB,BCA
5 PRINT"[147][142]"
10 FORA=12288TO12288+79:READB:POKEA,B:NEXT:H=8*32+12288:FORA=HTOH+7:POKEA,0:NEXT
11 POKE53281,0:POKE53280,12
12 PRINT"[147]1 = RED":PRINT"[150][129]2 = ORANGE":PRINT"[158]3 = YELLOW":PRINT"4 = GREEN"
13 PRINT"[154]5 = BLUE":PRINT"[156]6 = PURPLE"
14 PRINT"[149]7 = BROWN":PRINT"[152]8 = GRAY":PRINT"WHICH COLOR?"
15 GETA$:IFA$<"1"ORA$>"8"THEN15
16 A=VAL(A$)
17 IFA=1THENPOKE53283,8:POKE53282,10:PRINT"[150]":GOTO28
18 IFA=2THENPOKE53283,8:POKE53282,10:PRINT"[155]":GOTO28
19 IFA=3THENPOKE53283,1:POKE53282,10:PRINT"[155]":GOTO28
20 IFA=4THENPOKE53283,13:POKE53282,3:PRINT"[153]":GOTO28
21 IFA=5THENPOKE53283,14:POKE53282,3:PRINT"[154]":GOTO28
22 IFA=6THENPOKE53283,2:POKE53282,10:PRINT"[152]":GOTO28
23 IFA=7THENPOKE53283,8:POKE53282,9:PRINT"[150]":GOTO28
24 IFA=8THENPOKE53283,12:POKE53282,15:PRINT"[149]":GOTO28
27 END
28 POKE53272,29:POKE53270,216
30 PRINT"[147]":FORA=1TO11:PRINT"ABCABCABCABCABCABCABCABCABCABCABCABCABCA";
40 PRINT"FEDFEDFEDFEDFEDFEDFEDFEDFEDFEDFEDFEDFEDF";:NEXT
50 PRINT"ABCABCABCABCABCABCABCABCABCABCABCABCABCA";
60 GETA$:IFA$<>" "THEN60
70 PRINT"[147]":FORA=1TO23:PRINT"CBACBACBACBACBACBACBACBACBACBACBACBACBAC";:NEXT
80 GETA$:IFA$<>" "THEN80
95 PRINT"[147]"
100 FORA=1TO7
110 PRINT"ABCABCABCABCABCABCABCABCABCABCABCABCABCA";
120 PRINT"CABCABCABCABCABCABCABCABCABCABCABCABCABC";
130 PRINT"BCABCABCABCABCABCABCABCABCABCABCABCABCAB";
140 NEXT
145 PRINT"ABCABCABCABCABCABCABCABCABCABCABCABCABCA";
147 PRINT"CABCABCABCABCABCABCABCABCABCABCABCABCABC";
150 GETA$:IFA$<>" "THEN150
160 PRINT"[147]":FORA=1TO23:PRINT"DEFDEFDEFDEFDEFDEFDEFDEFDEFDEFDEFDEFDEFD";:NEXT
170 GETA$:IFA$<>" "THEN170
180 PRINT"[147]":FORA=1TO23:PRINT"@FED@FED@FED@FED@FED@FED@FED@FED@FED@FED";:NEXT
190 GETA$:IFA$<>" "THEN190
200 PRINT"[147]":FORA=1TO10:PRINT"G@@@FEDFEDG@@@FEDFEDG@@@FEDFEDG@@@FEDFED";:NEXT
210 FORA=1TO13:PRINT" ABCABC ABCABC ABCABC ABCABC";:NEXT
215 GETA$:IFA$<>" "THEN215
220 POKE53270,200:POKE53272,21:GOTO12
1215 GETA$:IFA$<>" "THEN215
3000 DATA255,255,85,85,85,170,170,170
3010 DATA165,165,165,165,165,165,165,165
3020 DATA250,250,250,250,250,250,250,250
3030 DATA95,95,95,95,95,95,95,95
3040 DATA95,151,165,165,233,234,250,190
3060 DATA250,126,95,95,151,149,165,233
3070 DATA165,233,250,250,126,127,95,151
3080 DATA40,40,40,40,40,40,40,40
3090 DATA250,126,95,95,151,149,165,233
3100 DATA165,233,250,250,126,127,95,151